unit QBClasses_DEVEXP;

interface

{$IFDEF USE_DEVEXPRESS}

uses
  {$IFDEF VCL16}
    System.Classes,
    Vcl.StdCtrls,
  {$ELSE}
    Classes,
    StdCtrls,
  {$ENDIF}
  cxDropDownEdit,
  cxPC,
  cxTreeview,
  cxButtons,
  cxSplitter,
  cxTextEdit,
  QBStringTypes;

type

  TQBSplitter = TcxSplitter;

  TQBComboBox = class(TcxCustomCombobox)
    function GetItems: TaqbStrings;
    function GetOnInitPopup: TNotifyEvent;
    procedure SetOnInitPopup(Value: TNotifyEvent);
    function GetOnCloseUp: TNotifyEvent;
    procedure SetOnCloseUp(Value: TNotifyEvent);
    procedure SetStyle(Value: TComboBoxStyle);
    procedure Initialize; override;
  public
    property Items: TaqbStrings read GetItems;
    property OnDropDown: TNotifyEvent read GetOnInitPopup write SetOnInitPopup;
    property OnCloseUp: TNotifyEvent read GetOnCloseUp write SetOnCloseUp;
    property qStyle: TComboBoxStyle write SetStyle;
  end;

  TQBPageControl = class(TcxPageControl)
  published
    property OnChanging;
  end;

  TQBTabSheet = TcxTabSheet;

  TQBTreeView = TcxTreeView;

  TQBButton = TcxButton; // iplus updown

  TQBTextEdit = TcxTextEdit;

{$ENDIF}
implementation
{$IFDEF USE_DEVEXPRESS}

uses
  {$IFDEF VCL16}
    Vcl.Graphics,
  {$ELSE}
    Graphics,
  {$ENDIF}
  cxContainer,
  cxEdit;

function TQBComboBox.GetItems: TaqbStrings;
begin
  Result := Properties.Items;
end;

function TQBComboBox.GetOnInitPopup: TNotifyEvent;
begin
  Result := Properties.OnInitPopup;
end;

procedure TQBComboBox.SetOnInitPopup(Value: TNotifyEvent);
begin
  Properties.OnInitPopup := Value;
end;

function TQBComboBox.GetOnCloseUp: TNotifyEvent;
begin
  Result := Properties.OnCloseUp;
end;

procedure TQBComboBox.SetOnCloseUp(Value: TNotifyEvent);
begin
  Properties.OnCloseUp := Value;
end;

procedure TQBComboBox.Initialize;
begin
  inherited;
  FStyles.Style.HotTrack := false;
  FStyles.Style.BorderColor := clBtnShadow;
  Properties.DropDownListStyle := lsFixedList;
end;

procedure TQBComboBox.SetStyle(Value: TComboBoxStyle);
begin

end;

{$ENDIF}

end.
